﻿Imports Commander_Wars.Spieletools
''' <summary>
''' Wird zu erstellen des KO's Zak verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KOZak
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "ZAK"
        Armee = Armeen.BG.ToString
        Musik = "Zak"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 900
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 900
                Gabekosten = 3
                SpezialgabeKosten = 2
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 900
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 900
                Gabekosten = 3
                SpezialgabeKosten = 2
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 4
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name
        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        Bewegungsbonus = Nothing
        LandschaftsUntergrund = New String() {"STRASSE"}
        LandschaftsStaerke = 10
        Gabenfueller = 1.1
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWarsDS
                LandschaftsStaerke = 30
                Bewegungsbonus = New BewegungsboniTabelleAlles_1
                If OhneFunktion = False Then
                    AnimationEigene("KANBEIGABE", 2)
                End If
                GabeEingesetzt()
            Case Else
                LandschaftsStaerke = 20
                Bewegungsbonus = New BewegungsboniTabelleAlles_1
                If OhneFunktion = False Then
                    AnimationEigene("KANBEIGABE", 2)
                End If
                GabeEingesetzt()
        End Select

    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                LandschaftsStaerke = 20
                Bewegungsbonus = New BewegungsboniTabelleAlles_1
                If OhneFunktion = False Then
                    AnimationEigene("KANBEIGABE", 2)
                End If
                GabeEingesetzt()
            Case CommanderWarsGameModi.AdvanceWarsDS
                LandschaftsStaerke = 30
                Bewegungsbonus = New BewegungsboniTabelleAlles_1
                If OhneFunktion = False Then
                    AnimationEigene("KANBEIGABE", 2)
                End If
                GabeEingesetzt()
            Case Else
                LandschaftsStaerke = 30
                Bewegungsbonus = New BewegungsboniTabelleAlles_2
                If OhneFunktion = False Then
                    AnimationEigene("SPEZIALGABE", 2)
                End If
                GabeEingesetzt()
        End Select

    End Sub

    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class

Public Class KOBeschreibungZak
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Zak"
        Fein = "Sprueche"
        Nein = "Fondue"
        Beschreibung = New String() {"Ein KO der Bolt Guard, der sich staendig neue Gemeinheiten ausdenkt."}
        Stil = New String() {"Seine Gabeleiste fuellt sich", "schneller auf als die anderer KO", "und seine Truppen kaempfen", "auf Strassen besser."}
        Gabebeschreibung = New String() {"Alle Einheiten erhalten 1 Bewegungspunkt", "und kaempfen auf Strassen besser."}
        SpezialgabeBeschreibung = New String() {"Alle Einheiten erhalten 2 Bewegungspunkte", "und kaempfen auf Strassen besser."}
        GabeKosten = 3
        Spezialgabekosten = 2
        Gaben = New String() {"Freie Fahrt", "Strassenstuermer"}
        Synergie = New Decimal() {2, 2, 1, -3.5#, -2, 2, 1}
        KONamen = New String() {"ADDER", "JUGGER", "CANDY", "RACHEL", "MELANTHE", "MARY", "EMBER"}
        Doppelgabenamen = New String() {"Gruseliges Grauen", "Stromstoss", "Zuendfunke", "Doppel-Gabe", "Doppel-Gabe", "Weg des Blutes", "Strassen Wut"}
        Gabesaetze = New String() {"Ich werde deine Truppen eine nach dem anderen zerschmettern!" _
                                      , "Ich bin ein Krieger und ein Schueler. Mein Sieg ist mehr als sicher." _
                                      , "He! He! He!... Ich umzingle dich nicht! Schlottere mit den Knien und bete um Gnade!" _
                                      , "He! He! He!... Keiner wird entkommen!" _
                                      , "Mein Tempo ist einzigartig!" _
                                      , "He! He! He!... Das Schicksal ist auf meiner Seite."}
        Siegsaetze = New String() {"Es gibt niemanden auf den Schlachtfeld wie mich." _
                                , "Suhle dich in deiner Schande, du Schwein! Suhle habe ich gesagt." _
                                , "Du haettest dir viel ersparen koennen, haettest du die Fakten akzeptiert."}
        Tauschsaetze = New String() {"Das ist noch nicht vorbei." _
                                    , "Erleide deine Pein."}
        Doppelgabesaetze = New DoppelGabesatz() {New DoppelGabesatz("ADDER", "ZAK", "Hae! Hae! Hae!... perfekt.", "Das wird fies.") _
                                              , New DoppelGabesatz("ZAK", "ADDER", "Mein fieser Plan wird funktionierm", "Hae! Hae! Hae!... Dann ist es gleich vorbei.") _
                                              , New DoppelGabesatz("JUGGER", "ZAK", "Initialisiere Kampfsystem.", "Hae! Hae! Ihr habt keine Chance .") _
                                              , New DoppelGabesatz("ZAK", "JUGGER", "Hae! Hae!  Wen ihr kaempft habt ihr bereits verloren.", "Code. Fehler. Zak wurde nicht verstanden!") _
                                              , New DoppelGabesatz("CANDY", "ZAK", "Ich bin die Schoenste.", "Ja und ich der Gemeinste.") _
                                              , New DoppelGabesatz("ZAK", "CANDY", "Candy ueberlass sie mir.", "Ich brauche sowieso ein Schoenheitsbad.") _
                                              , New DoppelGabesatz("ZAK", "MARY", "Einer geht ein Anderer kommt.", "Das ist der Kreislauf des Lebens.") _
                                              , New DoppelGabesatz("MARY", "ZAK", "Auf Soldaten auf vorwaerts.", "Du bist noch gemeiner als ich!") _
                                              , New DoppelGabesatz("EMBER", "ZAK", "Das ist ein perfektes Gemetzel.", "Deine Gegenwart sorgt dafuer.") _
                                              , New DoppelGabesatz("EMBER", "ZAK", "Wie erbaermlich...", "Exakt. Ihr zeigt das ihr keine Herausfordrerung seit!") _
                                              , New DoppelGabesatz("ZAK", "EMBER", "Der erste der Zweifelt verliert.", "... Ok!") _
                                              , New DoppelGabesatz("ZAK", "EMBER", "Hehehe... zusammen sind wir unschlagbar.", "Ahaha... Da koenntest du recht haben.")}
        Niederlagesaetze = New String() {"He! He! He!...??? Was?", _
                                        "Einmal gewinnst du und einmal verlierst du!"}
    End Sub
End Class
